unit progressform;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, cyPanel, Forms, Controls, Graphics, Dialogs;

type

  { TfrmProgress }

  TfrmProgress = class(TForm)
    StatusBar1: TCyPanel;
  private

  public
    procedure SetInfo(AValue:string);
  end;

implementation

{$R *.frm}

{ TfrmProgress }

procedure TfrmProgress.SetInfo(AValue: string);
begin
  StatusBar1.Caption:=AValue;
  Application.ProcessMessages;
end;

end.

